home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / DependencyTransformer.p < prev    next >
Encoding:
Text File  |  2004-01-31  |  1.9 KB  |  49 lines
  1. pTempVar <- <primitive 110 8 >
  2. <primitive 112 pTempVar 1  " hash " \
  3.   #( #[ 16r10 16r80 16r00 16r13 16r80 16r00 16r81 16r01 16r11 16r80 16r00 \
  4.         16r81 16r01 16rF3 16rF5] \
  5.     #( #identityHash #bitXor:  )) >
  6.  
  7. <primitive 112 pTempVar 2  " = " \
  8.   #( #[ 16r20 16rA4 16r21 16rA4 16rB6 16rFC 16r13 16r10 16r21 16r80 16r00 \
  9.         16rB6 16rFC 16r0C 16r13 16r21 16r80 16r01 16rB6 16rFC 16r05 \
  10.         16r11 16r21 16r80 16r02 16rB6 16rF3 16rF5] \
  11.     #( #receiver #aspect #selector  )) >
  12.  
  13. <primitive 112 pTempVar 3  " update:with:from: " \
  14.   #( #[ 16r13 16r21 16rB6 16rF6 16r02 16r20 16rF3 16rF2 16r12 16r50 16rB6 \
  15.         16rF7 16r05 16r10 16r11 16r81 16r00 16rF3 16rF2 16r12 16r51 \
  16.         16rB6 16rF7 16r06 16r10 16r11 16r22 16r82 16r01 16rF3 16rF2 \
  17.         16r12 16r52 16rB6 16rF7 16r07 16r10 16r11 16r22 16r23 16r83 \
  18.         16r02 16rF3 16rF2 16rF5] \
  19.     #( #perform: #perform:with: #perform:with:with:  )) >
  20.  
  21. <primitive 112 pTempVar 4  " matches:forAspect: " \
  22.   #( #[ 16r10 16r21 16rB6 16rFC 16r03 16r13 16r22 16rB6 16rF3 16rF5] \
  23.     #(  )) >
  24.  
  25. <primitive 112 pTempVar 5  " selector " \
  26.   #( #[ 16r11 16rF3 16rF5] \
  27.     #(  )) >
  28.  
  29. <primitive 112 pTempVar 6  " receiver " \
  30.   #( #[ 16r10 16rF3 16rF5] \
  31.     #(  )) >
  32.  
  33. <primitive 112 pTempVar 7  " aspect " \
  34.   #( #[ 16r13 16rF3 16rF5] \
  35.     #(  )) >
  36.  
  37. <primitive 112 pTempVar 8  " setReceiver:aspect:selector: " \
  38.   #( #[ 16r21 16r60 16r22 16r63 16r23 16r61 16r11 16r80 16r00 16r62 16r12 \
  39.         16r52 16rCC 16rF7 16r03 16r20 16r31 16rBD 16rF2 16rF5] \
  40.     #( #numArgs 'selector expects too many arguments'  )) >
  41.  
  42. <primitive 98 #DependencyTransformer \
  43.   <primitive 97 #DependencyTransformer #Object #AmigaTalk:General/DependencyTransformer.st \
  44.    #(  #receiver #selector #numArguments #aspect ) \
  45.    #( #hash #= #update:with:from: #matches:forAspect: #selector #receiver  \
  46.        #aspect #setReceiver:aspect:selector:  ) \
  47.   pTempVar 4 8 > #ordinary >
  48.  
  49.